home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zd.d64 / src.mccomal < prev    next >
Text File  |  2007-03-01  |  896b  |  62 lines
  1. ;
  2. ;---------------------------------
  3. ; ML - A COMAL PACKAGE
  4. ;      EXTENDING COMAL WITH A
  5. ;      FUNCTION 'STRPTR' TO PUT
  6. ;      MACHINE CODE IN A COMAL
  7. ;      STRING
  8. ;
  9. ; BY DICK KLINGENS
  10. ; DUTCH COMAL USERS GROUP
  11. ; NOV85
  12. ;---------------------------------
  13. ;
  14. ;--------------------- CONSTANTS ETC
  15.  FUNC   = 227
  16.  ENDFNC = 126
  17.  STR    = 2
  18.  REAL   = 0
  19.  REF    = 117
  20.  DEFPAG = %01000110
  21.  COPY   = $0045
  22.  FNDPAR = $C896
  23.  PSHINT = $C9CE
  24.  DUMMY  = $CA2F
  25. ;--------------------- MODULE
  26. *=$8009
  27.  .BYTE DEFPAG
  28.  .WORD LEND
  29.  .WORD DUMMY
  30.  .BYTE 2,'ML'  ;PACKAGE NAME
  31.  .WORD PROCT
  32.  .WORD DUMMY
  33.  .BYTE 0
  34. ;
  35. PROCT
  36.  .BYTE  6,'STRPTR'
  37.  .WORD  HSTR
  38.  .BYTE  0
  39. ;
  40. ; FUNC STRPTR(REF X$) CLOSED
  41. ;   RETURN ADDRESS
  42. ; ENDFUCN STRPTR
  43. ;
  44. HSTR
  45.  .BYTE  FUNC+REAL,<PTR,>PTR,1
  46.  .BYTE  REF+STR
  47.  .BYTE  ENDFNC
  48. ;
  49. PTR
  50.  LDA    #1
  51.  JSR    FNDPAR
  52.  CLC
  53.  LDA    COPY
  54.  ADC    #4
  55.  TAX
  56.  LDA    COPY+1
  57.  ADC    #0
  58. ;
  59.  JSR    PSHINT
  60.  RTS
  61. LEND .END
  62.